Oz - The Magical Adventure/Adventure.iso/pc/dkdata/volcano.dxr/00014_Dim from screen.ls

Text File | 2000-06-01 | 519 b | 21 lines

on exitFrame
  if sprite(32).blend > 10 then
    sprite(32).blend = sprite(32).blend - 5
    repeat with i = 45 to 49
      if sprite(i).member.name <> "empty" then
        sprite(i).blend = sprite(i).blend - 5
      end if
    end repeat
    go(the frame)
  else
    sprite(32).blend = 100
    repeat with i = 45 to 49
      if sprite(i).member.name <> "empty" then
        sprite(i).blend = 100
        sprite(i).member = root(sprite(i).member.name) & ".dull"
      end if
    end repeat
    go("play5")
  end if
end